home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
SHELLS
/
SZ2
/
ADEMO6.EVT
< prev
next >
Wrap
Text File
|
1992-08-31
|
807b
|
20 lines
{===================================================================
OPEN
===================================================================}
procedure hdOpen ;
var
D : PFileDialog ;
FileSpec : FNameStr ;
begin
FileSpec := '*.TXT' ;
New ( D , Init ( FileSpec , { FileSpec }
'Open file', { Dialog title }
'~N~ame' , { InputLine label }
fdOpenButton , { Buttons }
100 ) ) ; { History list }
if GENERAL.ExecDialog ( D , @FileSpec ) = cmCancel then EXIT ;
GENERAL.OpenEditor ( FileSpec , TRUE ) ;
end ;